home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)tn.d64 / vmtest plots.c (.txt) < prev   
Commodore BASIC  |  2007-02-04  |  2KB  |  79 lines
  1. 8 REM SAVE"VMTEST PLOTS.C",8
  2. 9 REM PROGRAM BY DR.FRANK COVITZ
  3. 10 PRINT"USE C TO GO FROM ONE PICTURE TO ANOTHER
  4. 11 [139] A[178]0 [167] A[178]1:[147]"-VMSUPP.6000.D",8,1
  5. 20 BA[178]6[172]16[174]3:[143] BASE ADDRESS
  6. 30 IN[178]BA
  7. 40 RS[178]BA[170]3
  8. 50 CL[178]BA[170]6
  9. 60 DR[178]BA[170]9
  10. 70 PX[178]BA[170]12
  11. 80 MV[178]BA[170]15
  12. 90 [158](IN)
  13. 100 S[178]3:[158](MV),S,S:[129] I[178]S [164] 195 [169] S
  14. 110 X1[178]S:Y1[178]X1:X2[178]X1:Y2[178]Y1[170]I
  15. 120 X3[178]X2[170]I:Y3[178]Y2:X4[178]X3:Y4[178]Y3[171]I
  16. 130 [158]DR,X2,Y2
  17. 140 [158]DR,X3,Y3
  18. 150 [158]DR,X4,Y4
  19. 160 [158]DR,X1,Y1
  20. 170 [130] I
  21. 180 [161] A$:[139] A$[179][177]"C" [167] 180
  22. 200 R[178]80:XC[178]160:YC[178]100:A[178][255][173]180:S[178]5
  23. 210 [158](CL)
  24. 220 [129] AN [178] 0 [164] [255][173]1.99 [169] [255][173]20
  25. 230 [158]MV,XC[170]R[172][191](AN),YC[170]R[172][191](AN)
  26. 240 [129] I[178]S [164] 360 [169] S
  27. 250 [158]DR,XC[170]R[172][191](2[172]I[172]A[170]AN),YC[170]R[172][191](I[172]A[170]AN)
  28. 260 [130] I,AN
  29. 270 [161] A$:[139] A$[179][177]"C" [167] 270
  30. 300 [158](CL)
  31. 310 D[178]4:E[178]2:X[178]XC:Y[178]YC
  32. 320 [158]MV,X,Y
  33. 330 [129] I[178]0 [164] 20
  34. 340 D[178]D[170]E:Y[178]Y[170]D:[158]DR,X,Y
  35. 350 D[178]D[170]E:X[178]X[170]D:[158]DR,X,Y
  36. 360 D[178]D[170]E:Y[178]Y[171]D:[158]DR,X,Y
  37. 370 D[178]D[170]E:X[178]X[171]D:[158]DR,X,Y
  38. 380 [130] I
  39. 390 [161] A$:[139] A$[179][177]"C" [167] 390
  40. 400 [158]CL:S[178][255][173]3
  41. 410 [129] T[178]0 [164] S [169] S[173]8
  42. 420 [158]MV,XC[170]R[172][190](T),YC[170]R[172][191](T)
  43. 430 [129] I[178]S [164] 2[172][255] [169] S
  44. 440 [158]DR,XC[170]R[172][190](I[170]T),YC[170]R[172][191](I[170]T)
  45. 450 [130] I,T
  46. 460 [161] A$:[139] A$[179][177]"C" [167] 460
  47. 500 [158]CL:S[178][255][173]4:D[178]R[173]20
  48. 510 [129] T[178]0 [164] S [169] S[173]20
  49. 520 [158]MV,XC[170]R[172][190](T),YC[170]R[172][191](T)
  50. 530 [129] I[178]S [164] 2[172][255] [169] S
  51. 540 [158]DR,XC[170]R[172][190](I[170]T),YC[170]R[172][191](I[170]T)
  52. 550 [130] I
  53. 560 R[178]R[171]D:[130] T
  54. 580 [161] A$:[139] A$[179][177]"C" [167] 580
  55. 600 [158]CL:R[178]80:S[178][255][173]8:D[178]R[173]20
  56. 610 [129] T[178]0 [164] S [169] S[173]40
  57. 620 [158]PX,XC[170]R[172][190](T),YC[170]R[172][191](T)
  58. 630 [129] I[178]S [164] 2[172][255] [169] S
  59. 640 [158]PX,XC[170]R[172][190](I[170]T),YC[170]R[172][191](I[170]T)
  60. 650 [130] I
  61. 660 R[178]R[171]D:[130] T
  62. 680 [161] A$:[139] A$[179][177]"C" [167] 680
  63. 700 [158]CL:R[178]80:S[178]2[172][255][173]5:A[178][255][173]10
  64. 710 [129] I[178]0 [164] 4
  65. 720 T[178]A[170]I[172]S
  66. 730 X(I)[178]XC[170]R[172][190](T):Y(I)[178]YC[170]R[172][191](T)
  67. 740 [130] I
  68. 750 [158]MV,X(0),Y(0)
  69. 760 [158]DR,X(2),Y(2):[158]DR,X(4),Y(4)
  70. 770 [158]DR,X(1),Y(1):[158]DR,X(3),Y(3)
  71. 780 [158]DR,X(0),Y(0)
  72. 790 [161] A$:[139] A$[179][177]"C" [167] 760
  73. 800 [158]CL:A[178]160:B[178]A[173]2:[158]MV,0,A[172][189]([171]4)
  74. 810 [129] X[178]4 [164] 2[172]A[171]1 [169] 4
  75. 820 [158]DR,X,A[172][189]([171]((X[171]A)[173]B)[174]2)
  76. 830 [130] X
  77. 880 [161] A$:[139] A$[179][177]"C" [167] 880
  78. 9999 [158](RS)
  79.